Fix hang due to failure to clean up *.eln.old files at exit

* src/comp.c (eln_load_path_final_clean_up): Call
internal_delete_file, not Fdelete_file, to ignore any errors.
(Bug#46972)

diff --git a/src/comp.c b/src/comp.c
index 2ed893cbe04046dc0be409fadb7f2fe402ad2894..970c80226786f30bb5c9c5299855fe2056cdaf46 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -4616,7 +4616,7 @@ eln_load_path_final_clean_up (void)
                                   Qt, build_string ("\\.eln\\.old\\'"), Qnil,
                                   Qnil, Qt, return_nil);
       FOR_EACH_TAIL (files_in_dir)
-       Fdelete_file (XCAR (files_in_dir), Qnil);
+       internal_delete_file (XCAR (files_in_dir));
     }
 #endif
 }